home *** CD-ROM | disk | FTP | other *** search
/ LOGIC Apps / Logic-APPLE_II_APPS.iso / pc / LOGIC Apple II 5.25" Library - DOS Part 3 / DOS069.dsk / FOX AND HOUNDS.bas < prev    next >
BASIC Source File  |  2012-02-16  |  4KB  |  150 lines
  1. 50  PRINT "WANT INSTRUCTIONS";
  2. 55  PRINT "TYPE YES OR NO";
  3. 60  INPUT A$
  4. 70  IF A$ = "YES"  THEN  GOSUB 1500
  5. 110  DIM L(9,9)
  6. 200  REM 
  7. 210  FOR C = 1 TO 8  STEP 2
  8. 220 L(1,C) = 1
  9. 230 L(1,C +1) = 2
  10. 240  NEXT C
  11. 250  FOR C = 1 TO 8  STEP 2
  12. 255 L(2,C) = 4
  13. 260 L(2,C +1) = 1
  14. 265 L(3,C +1) = 4
  15. 270 L(3,C) = 1
  16. 275 L(4,C) = 4
  17. 280 L(4,C +1) = 1
  18. 285 L(5,C) = 1
  19. 290 L(5,C +1) = 4
  20. 295 L(6,C) = 4
  21. 300 L(6,C +1) = 1
  22. 305 L(7,C) = 1
  23. 310 L(7,C +1) = 4
  24. 312 L(8,C) = 4
  25. 315 L(8,C +1) = 1
  26. 320  NEXT C
  27. 330 L(8,5) = 3
  28. 340 X = 8
  29. 350 Y = 5
  30. 360 A = X
  31. 370 B = Y
  32. 400  REM 
  33. 405  PRINT  CHR$(16); CHR$(22)
  34. 406  GOSUB 1400
  35. 410  FOR L = 1 TO 8
  36. 420  FOR C = 1 TO 8
  37. 430  IF L(L,C) = 1  THEN  PRINT "X ";
  38. 435  INVERSE 
  39. 440  IF L(L,C) = 2  THEN  PRINT "H ";
  40. 450  IF L(L,C) = 3  THEN  PRINT "F ";
  41. 455  NORMAL 
  42. 460  IF L(L,C) = 4  THEN  PRINT "0 ";
  43. 470  NEXT C
  44. 480  PRINT " L";L
  45. 490  NEXT L
  46. 500  FOR K = 1 TO 8
  47. 510  PRINT K;" ";
  48. 520  NEXT K
  49. 530  PRINT 
  50. 540  IF X = 1  THEN  GOTO 1350
  51. 560  IF Z = 1  THEN 1300
  52. 600  REM 
  53. 610  PRINT "YOUR MOVE FROM (LINE,COLUMN) ";
  54. 620  INPUT F,F1
  55. 630  PRINT "TO ";
  56. 640  INPUT T,T1
  57. 650  IF T <F  THEN  PRINT "YOU CAN'T MOVE BACKWARDS"
  58. 655  IF T <F  THEN  GOTO 600
  59. 660  IF T -F < >1  THEN 700
  60. 680  IF L(F,F1) < >2  THEN 700
  61. 690  IF L(T,T1) = 4  AND L(F,F1) = 2  THEN 720
  62. 700  PRINT "INVALID MOVE"
  63. 710  GOTO 600
  64. 720 L(T,T1) = 2
  65. 730 L(F,F1) = 4
  66. 903 Q = 0
  67. 905 K =  INT( RND(0) *2)
  68. 910  IF K >2  THEN 905
  69. 930  IF K = 1  THEN 950
  70. 940  IF K = 0  THEN 1060
  71. 950 Q = Q +1
  72. 953 X = A -1
  73. 955 Y = B -1
  74. 960  IF L(X,Y) = 4  THEN L(X,Y) = 3
  75. 970  IF L(X,Y) < >3  AND Q < >2  THEN 1060
  76. 975  IF L(X,Y) < >3  AND Q = 2  THEN 1100
  77. 980  IF L(X,Y) = 3  THEN L(X +1,Y +1) = 4
  78. 990  IF L(X,Y) = 3  THEN 400
  79. 1060 X = A -1
  80. 1062 Y = B +1
  81. 1065 Q = Q +1
  82. 1070  IF L(X,Y) = 4  THEN L(X,Y) = 3
  83. 1080  IF L(X,Y) < >3  AND Q <2  THEN 950
  84. 1082  IF L(X,Y) < >3  AND Q = 2  THEN 1100
  85. 1085  IF L(X,Y) = 3  THEN L(X +1,Y -1) = 4
  86. 1090  IF L(X,Y) = 3  THEN 400
  87. 1100  REM 
  88. 1101  IF K = 0  THEN 1105
  89. 1102  IF K = 1  THEN 1200
  90. 1105 Q = Q +1
  91. 1110 X = A +1
  92. 1115 Y = B +1
  93. 1120  IF L(X,Y) = 4  THEN L(X,Y) = 3
  94. 1130  IF L(X,Y) < >3  AND Q <4  THEN 1200
  95. 1150  IF L(X,Y) = 3  THEN L(X -1,Y -1) = 4
  96. 1160  IF L(X,Y) = 3  THEN 400
  97. 1170  IF L(X,Y) < >3  THEN Z = 1
  98. 1180  GOTO 400
  99. 1200  REM 
  100. 1210 Y = B -1
  101. 1211 X = A +1
  102. 1215 Q = Q +1
  103. 1220  IF L(X,Y) = 4  THEN L(X,Y) = 3
  104. 1230  IF L(X,Y) < >3  AND Q <4  THEN 1105
  105. 1240  IF L(X,Y) = 3  THEN L(X -1,Y +1) = 4
  106. 1250  IF L(X,Y) = 3  THEN 400
  107. 1260  IF L(X,Y) < >3  THEN Z = 1
  108. 1270  GOTO 400
  109. 1300  REM 
  110. 1310  PRINT "YOU WIN...WANT TO PLAY AGAIN";
  111. 1320  GOTO 1370
  112. 1360  PRINT "I WIN...WANT TO PLAY AGAIN";
  113. 1370  INPUT A$
  114. 1380  IF A$ = "YES"  THEN  GOTO 200
  115. 1390  END 
  116. 1400  REM 
  117. 1405  IF A = X  THEN 1440
  118. 1406  IF Z = 1  THEN  PRINT "I CAN'T MOVE"
  119. 1407  IF Z = 1  THEN 1440
  120. 1410  PRINT "I MOVED FROM";A;" ";B;"TO ";X;" ";Y
  121. 1420 A = X
  122. 1430 B = Y
  123. 1440  RETURN 
  124. 1500  REM 
  125. 1505  PRINT  CHR$(16); CHR$(22)
  126. 1510  PRINT "YOU ARE THE HOUNDS. "
  127. 1520  PRINT "YOU HAVE FOUR PLAYERS (H)."
  128. 1530  PRINT "YOU CAN MOVE FORWARD ONLY."
  129. 1535  PRINT 
  130. 1540  PRINT "THE COMPUTER IS THE FOX (F)."
  131. 1550  PRINT "THE FOX CAN MOVE BACK AND FORWARD."
  132. 1555  PRINT 
  133. 1560  PRINT "IF YOU TRAP THE FOX YOU WIN."
  134. 1570  PRINT "IF THE FOX GETS TO LINE ONE."
  135. 1580  PRINT "THE COMPUTER WINS."
  136. 1590  PRINT "TYPE A RETURN TO CONTINUE";
  137. 1600  INPUT A$
  138. 1610  PRINT  CHR$(16); CHR$(22)
  139. 1620  PRINT "TO PLAY..WHEN IT IS YOUR MOVE"
  140. 1630  PRINT "TYPE IN A LINE NUMBER"
  141. 1640  PRINT "COMMA COLUMN NUMBER OF THE "
  142. 1650  PRINT "MAN YOU WANT TO MOVE."
  143. 1655  PRINT 
  144. 1660  PRINT "THEN WHEN I ASK TO?"
  145. 1670  PRINT "TYPE IN LINE NUMBER"
  146. 1680  PRINT "COMMA COLUMN YOU WANT TO"
  147. 1690  PRINT "MOVE TO. GOOD LUCK."
  148. 1700  PRINT "TYPE A RETURN WHEN READY";
  149. 1710  INPUT A$
  150. 1720  RETURN